rollout read_text_pos " 文件 " width:162 height:340
(
 button btn1 "打开文件" pos:[37,124] width:187 height:29
 
 on btn1 pressed do
 (
  proname = getOpenFileName()
  profile = openFile proname 
  campath=getFilenamePath proname  
  
  output_name = getSaveFileName()
  if output_name!= undefined then
  (
   output_file = createfile output_name

  )
  while not eof profile  do
  ( 
   str=readLine profile  
   leftBracket=  findString  str "("
   val= substring  str 11  (leftBracket-1-11) 
   str = substring  str 1  (leftBracket-1) 
   
   str=str+"IDD_BK1_0000_BMX"
   
   format "#ifndef %\n%\n#endif\n" val str to:output_file 
  
  )
  
  close profile
  close output_file
  
  
 )
)

nf= newRolloutFloater " 文件 " 250 300
addRollout read_text_pos nf